home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / misc / ftransd_2_1a.lha / FTransD_2.1a / ARexx-Scripts / FTrans.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-15  |  6KB  |  310 lines
  1. /*  $VER: FTrans.rexx 1.3 (Jul 15 1995)
  2.  *
  3.  *  Arexx-Script fⁿr FTrans Arexx-Interface (c) Copyright 1993/94
  4.  *  by Rainer Hess
  5.  *
  6.  *  May 21 1993, Oct 22 1993, Dec 21 1993, Dec 26 1993, Dec 30 1993
  7.  *  Dec 31 1993, Jan  3 1994, Jul 15 1995
  8.  *
  9.  *  V1.1 - Neuer FTrans ARexx-Befehl WORTARG eingefⁿgt.
  10.  *  V1.2 - ARexx-Port-Name fⁿr FTrans V1.7 geΣndert.
  11.  *  V1.3 - Neuer FTrans ARexx-Befehl VERSION, REVISION, FLUSHBUFFER,
  12.  *         ZIPWINDOW und VERSTAG eingefⁿgt.
  13.  */
  14.  
  15. options results
  16.  
  17. /*
  18.  * Wir definieren unsere Eingabe und Ausgabedatei, ebenso unseren
  19.  * Publicscreen. Diese brauchen wir spΣter in diesem Arexx-Script.
  20.  *
  21.  * ACHTUNG! Die Eingabedatei die in 'indat' initialisiert wird sollte
  22.  * existieren da wir sonst eine Fehlermeldung bekommen. Ebenso sollte
  23.  * der Publicscreen vorhanden sein, geht aber auch ohne.
  24.  */
  25.  
  26. indat  = "RAM:AlteTextDatei"
  27. outdat = "RAM:NeueTextDatei"
  28.  
  29. newpubscreenname = "CygnusEdScreen1"
  30.  
  31. /*
  32.  * rexxsupport.library einbinden.
  33.  */
  34.  
  35. if ~show('l',"rexxsupport.library") then do
  36.    call addlib 'rexxsupport.library',0,-30,0
  37.    if (result = 0) then do
  38.      say "Die rexxsupport.library kann nicht eingebunden werden!"
  39.      say "Evtl. ist die rexxsupport.library nicht installiert..."
  40.      exit
  41.    end
  42. end
  43.  
  44. /*
  45.  * LΣuft unser Ftrans mit ARexx-Port "FTRANS.1"?
  46.  */
  47.  
  48. ok = show("P","FTRANS.1")
  49. if ok = 0 then do
  50.    say 'Entschuldigung, das Programm FTrans mit Arexx-Port FTRANS.1 lΣuft nicht!'
  51.    exit 0
  52. end
  53.  
  54. /*
  55.  *  Text auf das Shell-Fenster ausgeben in dem
  56.  *  der Arexx-Script gestartet wurde.
  57.  */
  58.  
  59. say ' - Start...'
  60. say
  61.  
  62. /*
  63.  * Arexx-Port aktivieren.
  64.  */
  65.  
  66. address 'FTRANS.1'
  67.  
  68. /*
  69.  * Ausgabe-Texte l÷schen.
  70.  */
  71.  
  72. FLUSHBUFFER
  73.  
  74. /*
  75.  * FTEcho "ON" gibt Informationen im Info-Fenster von FTrans aus.
  76.  * FTEcho "OFF" wuerde dies unterbinden.
  77.  */
  78.  
  79. FTEcho "on"
  80. say "-> FTEcho ist" result
  81. say
  82.  
  83. /*
  84.  * Lock GUI
  85.  */
  86.  
  87. LOCKGUI
  88.  
  89. /*
  90.  * Nun einen Text auf das Info-Fenster von FTrans ausgeben.
  91.  * Danach 1 Sekunde (50 Ticks = 1 Sekunde) warten.
  92.  */
  93.  
  94. Message "Hallo ich soll Dich von FTrans informieren..."
  95. ok = delay(50)
  96.  
  97. /*
  98.  * Versions, Revisions und Verstag-Ausgabe:
  99.  */
  100.  
  101. VERSION
  102. say 'Die aktuelle Programmversion ist:' result
  103.  
  104. REVISION
  105. say 'Die aktuelle Programmrevision ist:' result
  106.  
  107. VERSTAG
  108. say 'Die aktuelle Programmversion ist:' result
  109.  
  110. /*
  111.  * So nun das Fenster "zippen" kurz warten und wieder "dezippen".
  112.  */
  113.  
  114. ZIPWINDOW
  115. ok = delay(2 * 50)
  116. ZIPWINDOW
  117.  
  118. /*
  119.  * Nun Wechseln wir die ▄bersetzungsart. Was dann aktiviert
  120.  * ist bekommen wir als Text zurⁿckgeliefert (TEXT oder WORT).
  121.  * Danach wieder 1 Sekunde warten. Einfach so zum ▄berblick...
  122.  */
  123.  
  124. Wechsel
  125. say "-> Wechsel, nun aktive ▄bersetzung:" result
  126. ok = delay(50)
  127.  
  128. /*
  129.  * Nun ⁿbersetzen wir den Text von Datei indat und der Datei outdat.
  130.  * Sollte eine Datei nicht gefunden werden, bekommen wir einen Fehler!
  131.  */
  132.  
  133. say
  134. say "-> ▄bersetze" indat "nach" outdat
  135. FTTEXT indat outdat
  136. say "-> FTText:" result
  137.  
  138. /*
  139.  * Nun ein Wort von der Shell abholen.
  140.  */
  141.  
  142. say
  143. options prompt "-> Bitte ein Wort eingeben: "
  144. parse pull eingabe
  145.  
  146. /*
  147.  * Das Wort in eine Datei schreiben von dort aus kann es Ftrans ⁿbernehmen.
  148.  */
  149.  
  150. ok = open("DateiName", "t:FTransEingabe", "W")
  151. ok = writech( "DateiName", eingabe )
  152. ok = close("DateiName")
  153.  
  154. /*
  155.  * FTrans holt das Wort aus der Datei und sucht im W÷rter nach der ▄bersetzung.
  156.  * Wurde es nicht gefunden steht es in den geschweiften Blockklammern { und }.
  157.  */
  158.  
  159. Wort "t:FTransEingabe"
  160. say "                  Ergebnis:" result
  161.  
  162. /*
  163.  * Nun wird der Dos-Befehl Delete ausgefⁿhrt. Dieser sollte sich im C:
  164.  * Direktorie befinden. Ist er da wird die ▄bergabedatei gel÷scht.
  165.  */
  166.  
  167. if exists('c:delete') then
  168.   address command 'c:delete' ">NIL: t:FTransEingabe"
  169. else say 'Dos-Befehl c:Delete ist nicht zu finden...'
  170.  
  171.  
  172. /*
  173.  * Arexx-Port wieder aktivieren.
  174.  */
  175.  
  176. address 'FTRANS.1'
  177.  
  178. /*
  179.  * Den alten Publicscreen merken.
  180.  */
  181.  
  182. say
  183. OLDPUBLICSCREEN
  184. oldpub=result
  185. say "-> Alter PublicScreen:" oldpub
  186.  
  187. /*
  188.  * Den neuen Publicscreen setzen.
  189.  */
  190.  
  191. say
  192. PUBLICSCREEN newpubscreenname
  193. say "-> Neuer PublicScreen:" result
  194.  
  195. /*
  196.  * Und den alten wieder verwenden.
  197.  */
  198.  
  199. say
  200. PUBLICSCREEN oldpub
  201. say "-> Alter PublicScreen:" result
  202.  
  203. /*
  204.  * Aktuelles W÷terbuch deaktivieren
  205.  * (und 5 Sekunden warten, um es besser beobachten zu k÷nnen)
  206.  */
  207.  
  208. say
  209. DELOAD
  210. say "-> W÷rterbuch deaktiviert"
  211. ok = delay(5 * 50)
  212.  
  213. /*
  214.  * Aktuelles W÷terbuch reaktivieren
  215.  */
  216.  
  217. say
  218. RELOAD
  219. say "-> W÷rterbuch reaktiviert"
  220.  
  221. /*
  222.  * Lernbuffer l÷schen
  223.  */
  224.  
  225. say
  226. LERNFLUSH
  227. say "-> Lernbuffer gel÷scht"
  228.  
  229. /*
  230.  * Merkbuffer l÷schen
  231.  */
  232.  
  233. say
  234. MERKFLUSH
  235. say "-> Merkbuffer gel÷scht"
  236.  
  237. /*
  238.  * Nun ein Wort von der Shell abholen.
  239.  */
  240.  
  241. say
  242. options prompt "-> Bitte ein Wort eingeben: "
  243. parse pull eingabe
  244.  
  245. /*
  246.  * FTrans holt das Wort als Argument direkt ab. Wurde das Wort nicht
  247.  * gefunden steht es in den geschweiften Blockklammern { und }.
  248.  */
  249.  
  250. WortArg eingabe
  251. say "                  Ergebnis:" result
  252.  
  253. /*
  254.  * Den Zustand des Autolern-Modus ▄berprⁿfen.
  255.  */
  256.  
  257. say
  258. AUTOLERNEN
  259. say 'Das Autolernen ist' result
  260.  
  261. /*
  262.  * Den Zustand des Clipboard-Modus ▄berprⁿfen.
  263.  */
  264.  
  265. say
  266. CLIPBOARD
  267. say 'Das Clipboard ist' result
  268.  
  269. /*
  270.  * Den Zustand des Inforrequester-Modus ▄berprⁿfen.
  271.  */
  272.  
  273. say
  274. INFOREQUESTER
  275. say 'Info-Requester ist' result
  276.  
  277. /*
  278.  * Den Zustand des Vorschlag-Modus ▄berprⁿfen.
  279.  */
  280.  
  281. say
  282. VORSCHLAG
  283. say 'VorschlΣge sind' result
  284.  
  285.  
  286. /*
  287.  * Eine letzte Information auf das Info-Fenster von FTrans ausgeben.
  288.  */
  289.  
  290. Message "--- Danke das war's - FTrans Arexx-Script beendet ---"
  291.  
  292. /*
  293.  * Und ebenfalls noch eine letzte Meldung auf das Shell-Fenster.
  294.  */
  295.  
  296. say
  297. say "   *** Danke das war's - FTrans Arexx-Script beendet. ***"
  298.  
  299. /*
  300.  * Unlock GUI
  301.  */
  302.  
  303. UNLOCKGUI
  304.  
  305. /*
  306.  * Script Ende, alles ok.
  307.  */
  308.  
  309. exit 0
  310.